home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / m100prnt.arc / PIXMAP.100 < prev    next >
Encoding:
Text File  |  1986-06-28  |  1.6 KB  |  40 lines
  1. 10 '           "PIXMAP.BA"
  2. 20 '      A PROGRAM THAT PRODUCES
  3. 30 '     A PIXEL MAP OF TEXT FILES
  4. 40 '               BY
  5. 50 '     JAMES JACKSON 71316,1451
  6. 60 '          APRIL 7, 1986
  7. 70 ' ----------------------------------
  8. 80 ' ANSWER QUESTIONS PRESENTED BY PRO-
  9. 90 ' GRAM ON HOW TO FORMAT YOUR TEXT.
  10. 100' WHEN PROGRAM FINISHES PLOTTING,
  11. 110' PRESS ANY KEY TO SEE THE NEXT
  12. 120' PAGE.  WHEN THE LAST PAGE IS VIEW-
  13. 130' ED, PRESS ANY KEY TO RETURN TO THE
  14. 140' MODEL 100 MENU.  PROGRAM USES LESS
  15. 150' THAN 0.8K WHEN REMARKS ARE DELETED
  16. 160' ----------------------------------
  17. 170 CLS:CLEAR1620:P=1:L=0:R=79:TM=0:BM=63:LP=63:LS=1:ST=2:FILES
  18. 180 PRINTSTRING$(40,241);:INPUT".DO File to Display";N$
  19. 190 OPENN$FORINPUTAS1
  20. 200 CLS:INPUT"Top Margin (0 - 63)";TM:IFTM<0ORTM>63THEN200
  21. 210 PRINT"Bottom Margin (";TM+1;"- 63)";:INPUTBM:IFBM<TM+1ORBM>63THEN210
  22. 220 LP=BM-TM:INPUT"Left Margin (0 - 79)";L:IFL<0ORL>79THEN220
  23. 230 PRINT"Right Margin (";L+1;"- 79)";:INPUTR:IFR<L+1ORR>79THEN230
  24. 240 INPUT"Line Spacing (1 - 2)";LS:IFLS<1ORLS>2THEN240
  25. 250 CLS:PRINT@0,"File:";N$:PRINT@80,"Page:   ";P:PRINT@160,"Line"
  26. 260 PRINT@200,"Spacing:";LS;:PRINT@28,"Margins:"
  27. 270 PRINT@108,"Left:  ";L:PRINT@148,"Right: ";R
  28. 280 PRINT@188,"Top:   ";TM:PRINT@228,"Bottom:";BM
  29. 290 LINE(78,0)-(161,63),1,B:ST=TM+2:SP=LP
  30. 300 FORY=STTOSPSTEPLS:FORX=80+LTO80+R
  31. 310 IFEOF(1)THENCLOSE:GOTO380
  32. 320 A$=INPUT$(1,1):IFA$=CHR$(10)THEN350
  33. 330 IFA$>CHR$(32)ANDA$<CHR$(127)THENPSET(X,Y)
  34. 340 NEXTX
  35. 350 NEXTY
  36. 360 A$=INKEY$:IFA$=""THEN360
  37. 370 P=P+1:GOTO250
  38. 380 A$=INKEY$:IFA$=""THEN380ELSEMENU
  39.  
  40.